home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / lcsrc.arc / CRT_BORD.ASM < prev    next >
Assembly Source File  |  1985-04-04  |  770b  |  53 lines
  1. ;----------------------------------------------------------
  2. ;
  3. ; name        crt_setborder -- set border color 
  4. ;
  5. ; synopsis    VOID    crt_setborder(color)
  6. ;            int    color;
  7. ;
  8. ; description    set border to specified color (0-15)
  9. ;
  10. ;----------------------------------------------------------    
  11.  
  12.     include    dos.mac
  13.  
  14. video    equ    10h        ; video interrupt number
  15.  
  16.  
  17.     IF    LPROG
  18. X    EQU    6        ;OFFSET OF ARGUMENTS
  19.     ELSE
  20. X    EQU    4        ;OFFSET OF ARGUMENTS
  21.     ENDIF
  22.  
  23.     PSEG
  24.  
  25.  
  26.     PUBLIC    crt_setborder
  27.  
  28.     IF    LPROG
  29. crt_setborder    PROC    FAR
  30.     ELSE
  31. crt_setborder    PROC    NEAR
  32.     ENDIF
  33.  
  34.  
  35.     PUSH    BP            ;SAVE BP
  36.     MOV    BP,SP
  37.  
  38.     mov    ah,11        ; set border function
  39.     mov    bh,0        ;  "    "      "
  40.     mov    bl,[bp+x]    ; get the color to set
  41.     int    video
  42.  
  43.     POP    BP
  44.     RET
  45.  
  46. crt_setborder    ENDP
  47.  
  48.  
  49.     ENDPS    
  50.     END
  51.  
  52.  
  53.